home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.07 Jul 90 / Commando Programming ƒ / Rezscripts / RezC.Menu1.more < prev    next >
Encoding:
Text File  |  1989-08-09  |  1.5 KB  |  79 lines  |  [TEXT/MPS ]
  1. #######################################
  2. ### File RezC.MENU1.more
  3. ### Called by RezC.MENU to generate partial Rez input 
  4. ###        for one menu item or hierarchical menu.
  5. ###        W. Powell 1988
  6.  
  7. Set Exit 0
  8. If "{1}" == "-DONE" # Done, no input
  9.     Exit 100
  10. End
  11. Echo "∂t∂"{1}∂","
  12. Shift 1
  13. If "{1}" == "-icon"
  14.     Echo "∂t∂t{2},∂t∂/* Icon *∂/"
  15.     Shift 2 
  16. Else
  17.     Echo "∂t∂tnoIcon,∂t∂/* Icon *∂/"
  18. End
  19. If "{1}" == "-key"
  20.     Echo "∂t∂t∂"{2}∂",∂t∂/* Cmd Key *∂/"
  21.     Shift 2
  22. Else If "{1}" == "hierarchicalMenu"
  23.     Echo "∂t∂thierarchicalMenu,∂t"
  24.     Shift 1
  25. Else
  26.     Echo "∂t∂tnoKey,∂t∂/* Cmd Key *∂/"
  27. End
  28. If "{1}" == "-mark" 
  29.     If "{2}" == "noMark" || "{2}" == "check"
  30.         Echo "∂t∂t{2},∂t∂/* Marking Character *∂/"
  31.         Shift 2 
  32.     Else
  33.         Echo "∂t∂t∂"{2}∂",∂t∂/* Marking Character *∂/"
  34.         Shift 2 
  35.     End
  36. Else If "{1}" == "-sub"
  37.     Set dmv "{2}"
  38.     Shift 2 
  39.     Set chars `Echo -n "{dmv}" | Count -c `
  40.     If {chars} == 0
  41.         Set dmv "000"
  42.     Else If {chars} == 1
  43.         Set dmv "00{dmv}"
  44.     Else If {chars} == 2
  45.         Set dmv "0{dmv}"
  46.     End
  47.     Echo "∂t∂t∂"∂\0D{dmv}∂",∂t∂/* SubMenu ID *∂/"
  48. Else
  49.     Echo "∂t∂tnoMark,∂t∂/* Marking Character *∂/"
  50. End
  51. If "{1}" == "enabled"
  52.     Set EStat 0
  53. Else if "{1}" == "disabled"
  54.     Set EStat 10
  55. Else 
  56.     Set EStat 20 # Not allowed
  57. End
  58. Shift 1 
  59. If "{1}" == "-LAST"
  60.     Set EStat `Evaluate {EStat} + 100`
  61. End
  62. Shift 1
  63. If "{1}" == "+"
  64.     Shift 1
  65. End
  66. Set TheStyle ""
  67. For style In {Parameters}
  68.     Set TheStyle "{TheStyle} {style}"
  69. End
  70. Echo "∂t∂t∂/* Typeface style *∂/"
  71. Echo -n "∂t∂t{TheStyle} "
  72. If {EStat} <= 10
  73.     Echo ","
  74. End
  75. Exit {EStat}
  76.  
  77. ### End File RezC.MENU1.more
  78. #############################
  79.